home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs23.d81 / quietaft.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  15KB  |  452 lines
  1. 0 GOSUB25000:POKE53280,1:POKE53281,1:PRINT"[151]":    REM MILLAGE/FOSSEN/LORD ELGIN
  2. 1 CLR:C$="[164][175][162] [157][145]":D$="[157] [173][192][209][145][157][157][157] [192][178][192]":E$="[164][213][201][164][157][157][157][157][163][184][184][163]"
  3. 2 E$="[164][213][201][164][157][157][157][157][163][184][184][163]"
  4. 3 F$="    [157][157][157][157]    ":G$=F$
  5. 5 DIMH(20),F(15),LT(28),BZ(87)
  6. 6 FORD=1TO20:READH(D):NEXT
  7. 7 DATA0,-41,-39,2,42,82,-37,-43,-80,-78,-76,-82,-85,-120,-119,-118
  8. 8 DATA-121,-123,-124,-116,-161,-163,-157,
  9. 9 T$="    [157][145]"
  10. 10 A$="[164][175][185][175][185][162][184][183][184][183][184][146][162][185][185][175][164][164][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][183][184][183][184][162][185][162][185][175][185][162][146][184][183][163]"
  11. 11 H$="[164][213][201][164][157][157][157][157] [184][184][163]"
  12. 12 FORL=1TO15:READF(L):NEXT
  13. 13 DATA0,-1,-41,-39,41,39,2,43,-37,-80,-79,-78,-82,-121,-118,-117,-159
  14. 15 FORDC=1TO28:READLT(DC):NEXT
  15. 16 DATA0,41,81,40,-40,-39,-38,-37,42,1,3,4,-1,39,38,-2,-42,78,119
  16. 17 DATA82,-81,-79,-77,-75,-35,-120,-122,-123,-116,-114
  17. 19 GOSUB8000
  18. 20 B$="[164][175][185][162][185][175][164][164][164][157][157][157][157][157][157][157][163][183][184][183][163][163]"
  19. 21 POKE 53272,23
  20. 22 PRINT"[147] [193] [209][213][201][197][212] [211][213][206][196][193][217] [193][198][212][197][210][206][207][207][206]":SYS704
  21. 23 PRINT"BY [199]LENN [205]ILLAGE AND [197]RIC [198]OSSEN"
  22. 24 FORDL=1TO3000:NEXTDL
  23. 25 PRINT"[147]":POKE53272,21:SYS704
  24. 30 PRINT"[147][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][157][157][157]":SYS704
  25. 40 PRINT "  [172][172][146][161][145][157][157][157][172][172][146][161][145][157][157][157][172][172][146][161][145][157][157][157] [178]"
  26. 50 PRINT "[188][188][188][188][188][188][188][146][161][145][157][157][157][157][157][157][157][157].......[146][161][145][157][157][157][157][157][157][157]";
  27. 60 PRINT "  [161][145][157][161][145][157][161][145][161][157][161][157][161][157][161]"
  28. 70 PRINT ": :[157][157][157][157]:.:::[157][157][157][157][157][157].:..:[157][157][157][157][157][157]. .[157][157][157]."
  29. 80 PRINT "[157][157][157][157][164][157][157][167][183][165][157][157][157][167][184][165][157][157][157][170][162][146][181][157][157][157][182][184][181][157][157][157][161][146][183][161]";
  30. 90 PRINT "[157][157][157][157][157][157][157]....[206][163][205]."
  31. 100 PRINT "[178] .[178][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172]";
  32. 110 PRINT "[172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172]";
  33. 120 PRINT "[172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161]"
  34. 130 PRINT "[190][146][187][157][157][188][146][161]"
  35. 140 PRINT "[172][172][172][172][172][172][172][146][161][157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146]";
  36. 150 PRINT "[161][157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146][161][157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146][161][157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146][161]";
  37. 160 PRINT "[157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146][161][157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146][161]";
  38. 170 FORDL=1TO500:NEXTDL
  39. 190 FORX=1TO8:PRINT""
  40. 210 PRINTTAB(X)"[157] [157] [145]";A$
  41. 220 FORY=1TO50:NEXTY,X
  42. 235 FORX=1TO250:NEXT
  43. 270 FORX=1TO22
  44. 280 PRINT""
  45. 290 PRINTTAB(X)"[157] [157] [145]";A$
  46. 300 FORY=1TO50:NEXTY,X
  47. 320 FORX=1TO250:NEXT
  48. 330 FORX=1TO2:PRINT""
  49. 350 PRINTTAB(X)"[157] [157] [145]";B$
  50. 360 FORY=1TO50:NEXT Y,X
  51. 380 FORX=1TO1500:NEXTX
  52. 390 PRINT "[145]"
  53. 450 FORX=35TO17STEP -1
  54. 451 PRINTTAB(X)C$
  55. 452 FORY=1TO10:NEXTY,X
  56. 454 PRINTTAB(17);"   "
  57. 455 FORX=17TO10STEP-1
  58. 456 PRINTTAB(X)C$
  59. 457 FORY=1TO10:NEXT Y,X
  60. 459 PRINTTAB(10)"   "
  61. 460 FORX=10TO0STEP-1
  62. 461 PRINTTAB(X)C$
  63. 462 FORY=1TO10:NEXTY,X
  64. 464 PRINT"   "
  65. 490 PRINT"    "
  66. 495 FORX=1TO1500:NEXTX
  67. 500 FORX=1TO20:PRINTTAB(X)D$
  68. 520 FORY=1TOX*10:NEXTY,X
  69. 540 PRINT "[205][157][206][157][205][205][207][205][205][157][157][157][157][206][157][205][157].[146][157]";
  70. 550 FORX=1TO10
  71. 560 IFX/2<>INT(X/2)THEN PRINT"";
  72. 570 PRINT".[146][157]";
  73. 580 FORY=1TO10:NEXT Y,X
  74. 600 PRINT " [157] [157]     [157][157][157][157] [157] ";
  75. 605 FORX=1TO10:NEXT
  76. 610 PRINT "[206][179][197][157][157][157][157][157][157][157][157]. "
  77. 615 FORX=1TO10:NEXT
  78. 620 PRINT "[205][157][157][157][221][206] [157][157][157][157]   [157][157][157][173][192][209]";
  79. 625 FORX=1TO10:NEXT
  80. 630 PRINT"[145][157][157][157][157][157][157][157] [145][157][157]."
  81. 635 FORX=1TO10:NEXT
  82. 645 FORX=1TO10:NEXT
  83. 650 PRINT ". [145][221][157][157][157] [198][157][157][206][157][157]   [157][157][157][173][192][209]"
  84. 655 FORX=1TO10:NEXT
  85. 660 PRINT ". [198][157][157] [157][206][157][157][198][157][157]   [157][157][157][173][192][209]"
  86. 665 FOR X=1 TO 10:NEXT
  87. 670 PRINT ".       [157][157][157] [198][206][157][157][157][157][206][157][157]   [157][157][157][173][192][209]"
  88. 675 FOR X=1 TO 10:NEXT
  89. 680 PRINT "  [157][157][157].  [157][157][157][157][164][206][195][157][157][157][157]   [157][157][157][173][192][209]"
  90. 685 FOR X=1 TO 10:NEXT
  91. 690 PRINT ".  [198][205][157][157][157][206][157][157]   [157][157][157][173][192][209]"
  92. 695 FOR X=1 TO 10:NEXT
  93. 700 PRINT ".[145] [164][198][157][157][157][198][157][157]   [157][157][157][173][192][209]"
  94. 705 FORX=1TO10:NEXT
  95. 710 PRINT ".[145]  [145]  [157][157][157][206][163][196][157][157][157][157]   [157][157][157][173][192][209]"
  96. 715 FORX=1TO10:NEXT
  97. 720 PRINT ".[145][157] [210][205]/[157][157][157][157][176][198][209]"
  98. 725 FORX=1TO10:NEXT
  99. 730 PRINT ".[145]  [210][164][157][157][157][206][184][146][157][157][210][157][157] [157][173]"
  100. 735 FORX=1TO10:NEXT
  101. 740 PRINT ".[145][157]   [157][157][157][164][205]/[157][157][157][164][168][157][157][157] [157][176]"
  102. 745 FORX=1TO10:NEXT
  103. 750 PRINT ".[145][157]    [157][157][157][206][163][196][157][157][157][157][174]"
  104. 755 FORX=1TO10:NEXT
  105. 760 PRINT ".[145] [164][205]/[157][157][157][157][176]"
  106. 765 FORX=1TO10:NEXT
  107. 770 PRINT ".[145][157] [145] [164] [157][157][157][206] \[157][157][157][157][174][157][145] "
  108. 775 FORX=1TO10:NEXT
  109. 780 PRINT ".[145][157] [145][164][205][145][157] [210][157][157][157][157] [157][189]"
  110. 785 FORX=1TO10:NEXT
  111. 790 PRINT ".[145][157] [145][145] [164] [157][157][157][206]\[157][157][157][157] [157][173]
  112. 795 [129]X[178]1[164]10:[130]
  113. 800 [153] ".ON ONONANDON TOCMDCMDCMDCMD CMDOR"
  114. 805 [129]X[178]1[164]10:[130]
  115. 810 [153] "ANDONCMD  CMD^"
  116. 815 [129]X[178]1[164]10:[130]
  117. 820 [153]"AND"
  118. 830 [129]X[178]1[164]1500:[130]X
  119. 850 [153] "CMDCMDCMDCMD.CMD";
  120. 860 [129]X[178]1[164]500:[130]X
  121. 880 [153] "TOCMDCMDON.CMD";
  122. 890 [129]X[178]1[164]40:[130]X
  123. 900 [153] " CMDCMD.CMD";
  124. 910 [129]X[178]1[164]35:[130]X
  125. 920 [153] " CMD.CMD";
  126. 930 [129]X[178]1[164]30:[130]X
  127. 940 [153] " CMD.CMD";
  128. 950 [129]X[178]1[164]25:[130]X
  129. 960 [153] " CMD.CMD";
  130. 970 [129]X[178]1[164]20:[130]X
  131. 980 [153] " CMDCMD.CMD";
  132. 990 [129]X[178]1[164]15:[130]X
  133. 1000 [153]" CMD.CMD";
  134. 1010 [129]X[178]1[164]10:[130]X
  135. 1020 [153]" CMDANDCMD";
  136. 1030 [129]X[178]1[164]2000:[130]
  137. 1040 [153]"";[163]35)E$
  138. 1050 [129]X[178]1[164]100:[130]
  139. 1060 [153]"";[163]35)F$
  140. 1070 [153]"";[163]35)E$
  141. 1080 [129]X[178]1[164]100:[130]
  142. 1090 [153]"";[163]35)F$
  143. 1100 [153]"";[163]35)E$
  144. 1110 [129]X[178]1[164]100:[130]
  145. 1120 [153]"";[163]35)F$
  146. 1130 [153]"";[163]35)E$
  147. 1140 [129]X[178]1[164]200:[130]
  148. 1150 [129]X[178]35[164]17[169][171]1
  149. 1160 [153]"";[163]X)E$
  150. 1170 [129]Y[178]1[164]100:[130]
  151. 1180 [153]"";[163]X)F$:[130]
  152. 1260 [153]"ON"[163]17)E$
  153. 1270 [129]X[178]1[164]1500:[130]
  154. 1280 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  155. 1290 [153]"                (null)"
  156. 1295 [129]DL[178]1[164]75:[130]
  157. 1300 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  158. 1305 [129]DL[178]1[164]75:[130]
  159. 1310 [153]"                (null)"
  160. 1315 [129]DL[178]1[164]75:[130]
  161. 1320 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  162. 1325 [129]DL[178]1[164]75:[130]
  163. 1330 [153]"                (null)"
  164. 1335 [129]DL[178]1[164]75:[130]
  165. 1340 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  166. 1345 [129]DL[178]1[164]75:[130]
  167. 1350 [153]"                (null)"
  168. 1360 [153]"AND"
  169. 1370 [129]DL[178]1[164]75:[130]
  170. 1500 [153]"ABSPOSINTONCMDCMDCMDABSPOSINT"
  171. 1510 [153]"ABSPOSINTONCMDCMDCMDANDONCMDCMD
  172. 1520 PRINT"[167] [165][145][157][185]"
  173. 1533 PRINT"";TAB(34);" "
  174. 1534 PRINT"";TAB(34);"[192]"
  175. 1540 PRINT"";TAB(33)"[206]"
  176. 1541 PRINT"";TAB(37);" "
  177. 1543 FORDL=1TO22:NEXT
  178. 1544 PRINT"";TAB(34);" "
  179. 1545 FORDL=1TO20:NEXT
  180. 1546 PRINT"";TAB(33)" "
  181. 1550 PRINT"";TAB(32)"[192]"
  182. 1551 PRINT"";TAB(38);"[205]"
  183. 1552 PRINT"";TAB(38);" "
  184. 1553 PRINT"";TAB(34);"[185]"
  185. 1555 FORDL=1TO18:NEXT
  186. 1556 PRINT"";TAB(32)" "
  187. 1560 PRINT"";TAB(31)"[205]"
  188. 1561 PRINT"";TAB(38);"[205]"
  189. 1562 PRINT"";TAB(38);" "
  190. 1565 FORDL=1TO16:NEXT
  191. 1566 PRINT"";TAB(31)" "
  192. 1570 PRINT"";TAB(30)"[164]"
  193. 1571 PRINT"";TAB(38);"[164]"
  194. 1575 FORDL=1TO14:NEXT
  195. 1576 PRINT"";TAB(30)" "
  196. 1580 PRINT"";TAB(29)"[206]"
  197. 1581 PRINT"";TAB(38);"[164]"
  198. 1582 PRINT"";TAB(38);" "
  199. 1585 FORDL=1TO12:NEXT
  200. 1586 PRINT"";TAB(29)" "
  201. 1590 PRINT"";TAB(29)"[164]"
  202. 1591 PRINT"";TAB(38);"[164]"
  203. 1592 PRINT"";TAB(38);" "
  204. 1600 PRINT"";TAB(35);" "
  205. 1601 PRINT"";TAB(38);"[185]"
  206. 1610 PRINT"";TAB(34);"[206]"
  207. 1615 FORDL=1TO20:NEXT
  208. 1616 PRINT"";TAB(34);" "
  209. 1620 PRINT"";TAB(34);"[192]"
  210. 1625 FORDL=1TO18:NEXT
  211. 1626 PRINT"";TAB(34);" "
  212. 1630 PRINT"";TAB(34);"[185]"
  213. 1650 FORDL=1TO150:NEXT
  214. 1695 PRINT"";TAB(36);" [157][157]   [157][157][157]    "
  215. 1700 PRINT"";TAB(32);"[206][205][157][157][205] [205][157][157][205][160][205][157][157][205][145][145][145][157][164][205][163]"
  216. 1705 FORDL=1TO50:NEXT
  217. 1710 PRINT"";TAB(30);"[167][145][164][164][164][157][157][157][163][163][163]"
  218. 1715 PRINT"";TAB(32);"  [157][157][206]  [164][157][157][164]  [157][157] [145][145][145][157][164][205][163]"
  219. 1719 FORDL=1TO40:NEXT
  220. 1720 PRINT"";TAB(32);"  [157][157][205]  [164][157][157][164]  [157][157] [145][145][145][157][157][164][206][163]"
  221. 1725 PRINT"";TAB(30);" [145]   [157][157][157]   "
  222. 1730 FORDL=1TO25:NEXT
  223. 1735 PRINT"";TAB(31);"[185][175][162][175] [146][185][185][175]"
  224. 1745 PRINT"";TAB(32);"         [157][157][157][157][157] [157]  [157][157][157][157][157] "
  225. 1760 PRINT"";TAB(34);"    [157][157][157][157][157]   [157][157]  [157][157][157][157][157][157][157][157] "
  226. 1775 PRINT"";TAB(34);" [157][157][205]"
  227. 1780 PRINT"";TAB(35);" "
  228. 1785 PRINT"";TAB(32);"[162]"
  229. 1790 PRINT"";TAB(34);" "
  230. 1795 PRINT"";TAB(34);"[164]"
  231. 1800 PRINT"";TAB(36);"[164][206]"
  232. 1802 PRINT"";TAB(38);"  "
  233. 1803 FORDL=1TO20:NEXT
  234. 1805 PRINT"";TAB(76);"[168][175]"
  235. 1810 PRINT"";TAB(36);"  "
  236. 1820 PRINT"  "
  237. 1825 FORDL=1TO20:NEXT
  238. 1830 PRINT"[164][205]"
  239. 1835 FORDL=1TO22:NEXT
  240. 1840 PRINT"  "
  241. 1845 FORDL=1TO20:NEXT
  242. 1850 PRINT"[168][185]"
  243. 1880 D=23
  244. 1885 FORDL=1TO25:NEXT
  245. 1890 FORLK=1TO5
  246. 1900 PRINT"";TAB(D);"."
  247. 1905 FORDL=1TO150:NEXT
  248. 1906 IFLK<5 THEN PRINT"";TAB(D);" "
  249. 1910 D=D+1:NEXTLK
  250. 1940 FORDL=1TO150:NEXT
  251. 1950 PRINT"";TAB(26);"[205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205]"
  252. 1960 PRINT"";TAB(16);"[206][157][163]"
  253. 1970 PRINT"";TAB(26);" [145][157][157] [145][157][157] [145][157][157] [145][157][157] [145][157][157] [145][157][157] [145][157][157] [145][157][157] [145][157][157] "
  254. 1980 FORDL=1TO50:NEXT
  255. 1990 PRINT"";TAB(16);" [157] "
  256. 2000 PRINT"";TAB(14);"[205][206]"
  257. 2010 FORDL=1TO45:NEXT
  258. 2020 PRINT"";TAB(14);"  "
  259. 2030 PRINT"[163][163]"
  260. 2040 FORDL=1TO45:NEXT
  261. 2050 PRINT"  "
  262. 2060 PRINT"[206][205]"
  263. 2070 FORDL=1TO45:NEXT
  264. 2080 PRINT"  "
  265. 2090 PRINT"";TAB(11);"[221][168]"
  266. 2100 FORDL=1TO45:NEXT
  267. 2110 PRINT"";TAB(11);" [168]"
  268. 2120 PRINT"";TAB(9);"[205]"
  269. 2130 FORDL=1TO45:NEXT
  270. 2140 PRINT"";TAB(9);" "
  271. 2160 PRINT"";TAB(7);"[164]"
  272. 2170 FORDL=1TO45:NEXT
  273. 2180 PRINT"";TAB(7);" "
  274. 2190 PRINT"[206]"
  275. 2200 FORDL=1TO45:NEXT
  276. 2210 PRINT" "
  277. 2220 PRINT"";TAB(5);"[221]"
  278. 2230 FORDL=1TO45:NEXT
  279. 2240 PRINT"";TAB(5);" "
  280. 2250 PRINT"[206][213]"
  281. 2260 FORDL=1TO45:NEXT
  282. 2270 PRINT" [213]"
  283. 2280 PRINT"[166][169][146]"
  284. 2290 FORDL=1TO45:NEXT
  285. 2295 PRINT"";G$
  286. 2300 PRINT"";H$
  287. 2310 FORDL=1TO450:NEXT
  288. 2315 PRINT"";G$               "
  289. 2320 [153]"";H$
  290. 2321 [129]DL[178]1[164]750:[130]
  291. 2325 [153]"";G$
  292. 2400 [153]"";H$
  293. 2410 [129]DL[178]1[164]90:[130]
  294. 2420 [153]"";G$
  295. 2430 [153]"";[163]20);H$
  296. 2440 [129]DL[178]1[164]80:[130]
  297. 2450 [153]"";[163]20);G$
  298. 2460 [153]"";[163]22);H$
  299. 2470 [129]DL[178]1[164]70:[130]
  300. 2480 [153]"";[163]22);G$
  301. 2490 [153]"";[163]24);H$
  302. 2500 [129]DL[178]1[164]60:[130]
  303. 2510 [153]"";[163]24);G$
  304. 2520 [153]"";[163]25);H$
  305. 2560 J[178]123
  306. 2570 [129]D[178]1[164]20
  307. 2580 [151]1690[170]H(D),J:[130]D
  308. 2610 [139]J[178]123[167]J[178]46:[137]2570
  309. 2620 [139]J[178]46[167]J[178]32:[137]2570
  310. 2630 [153]"";[163]25);G$
  311. 2640 [153]"";[163]25);"SPC(ANDNOT"
  312. 2700 [153]"";[163]29);"(null)"
  313. 2710 [129]DL[178]1[164]38:[130]
  314. 2720 [153]"";[163]30);"TO"
  315. 2730 [153]"";[163]29);" "
  316. 2740 [129]DL[178]1[164]36:[130]
  317. 2750 [153]"";[163]31)"(null)"
  318. 2760 [153]"";[163]30);" "
  319. 2770 [129]DL[178]1[164]34:[130]
  320. 2780 [153]"ANDNEW"
  321. 2790 [153]"";[163]31)" "
  322. 2794 [129]DL[178]1[164]350:[130]:JK[178]36
  323. 2795 [129]DJ[178]1[164]4
  324. 2800 [153]"   "
  325. 2801 [129]DL[178]1[164]50:[130]
  326. 2802 [153]"";[163]JK);C$
  327. 2803 [129]DL[178]1[164]60:[130]
  328. 2804 [153]"";[163]JK);T$
  329. 2805 JK[178]JK[171]3:[130]DJ
  330. 2815 [129]DL[178]1[164]50:[130]
  331. 2820 [153]"";C$
  332. 2821 [129]DL[178]1[164]50:[130]DL
  333. 2825 [153]"";T$
  334. 2830 [153]"";C$
  335. 2831 [129]DL[178]1[164]50:[130]DL
  336. 2835 [153]"";T$
  337. 2840 [153]"";C$
  338. 2849 BN[178]123
  339. 2850 [129]G[178]1[164]15
  340. 2855 [151]1523[170]F(G),BN
  341. 2860 [130]G
  342. 2870 [139]BN[178]123[167]BN[178]160:[137]2850
  343. 2880 [139]BN[178]160[167]BN[178]108:[137]2850
  344. 2890 [139] BN[178]108[167]BN[178]32:[137]2850
  345. 2895 [153]" "
  346. 2900 [153]"   "
  347. 2905 [153]"";[163]18);" "
  348. 2910 [153]"  (null)"
  349. 2920 [153]"(null)"
  350. 2922 [153]"   "
  351. 2930 BD[178]123
  352. 2940 [129]D[178]1[164]28
  353. 2950 [151]1645[170]LT(D),BD:[130]D
  354. 2970 [139]BD[178]123[167]BD[178]160:[137]2940
  355. 2980 [139]BD[178]160[167]BD[178]108:[137]2940
  356. 2990 [139]BD[178]108[167]BD[178]32:[137]2940
  357. 3050 [153]"SPC(RNDCMDCMDCMDCMDRND"
  358. 3055 [129]DL[178]1[164]500:[130]
  359. 3060 [153]"                                                        ";
  360. 3070 [153]"                                                             ";
  361. 3080 [153]"                                       ";
  362. 3090 [153]"                                      ";
  363. 3100 [153]"                                       ";
  364. 3110 [153]"                                                ";
  365. 3120 [153]"";E$
  366. 3130 [129]DL[178]1[164]80:[130]
  367. 3140 [153]"";F$
  368. 3145 [153]""E$
  369. 3150 [129]DL[178]1[164]80:[130]
  370. 3155 [153]"";E$
  371. 3157 [153]""F$
  372. 3160 [129]DL[178]1[164]80:[130]
  373. 3175 [151]1284,123
  374. 3176 [129]DL[178]1[164]75:[130]
  375. 3177 [151]1284,32:[129]DF[178]1[164]8
  376. 3190 [151]1284[170]80[172]DF,123
  377. 3192 [129]DL[178]1[164]50[171]DF[172]3:[130]
  378. 3195 [151]1284[170]80[172]DF,32:[130]DF
  379. 3299 HM[178]160
  380. 3300 [129]VB[178]1[164]87
  381. 3310 [151]1924[170]BZ(VB),HM
  382. 3320 [130]VB
  383. 3400 [139]HM[178]160[167]HM[178]108:[137]3300
  384. 3410 [139]HM[178]108[167]HM[178]32:[137]3300
  385. 3500 [153]"                                       "
  386. 3510 [153]"                                    "
  387. 3520 [153]"                                  "
  388. 3530 [153]"                                   "
  389. 3540 [153]"                                   "
  390. 3550 [153]"                                   "
  391. 3560 [153]"                                   "
  392. 3570 [153]"                                   "
  393. 3580 [153]"                                   "
  394. 3590 [153]"                                   "
  395. 3600 [153]"                                   "
  396. 3610 [153]"                                   "
  397. 3620 [153]"                                   "
  398. 3630 [153]"                                   "
  399. 3635 [129]DL[178]1[164]250:[130]
  400. 3640 [153]"                                                       "
  401. 3650 [153]"                                                       "
  402. 3659 DG[178]5
  403. 3670 [153]"."
  404. 3671 [129]DL[178]1[164]150:[130]DL
  405. 3672 [153]" "
  406. 3680 [153]"."
  407. 3681 [129]DL[178]1[164]150:[130]
  408. 3685 [153]" "
  409. 3690 [153]"."
  410. 3691 [129]DL[178]1[164]150:[130]
  411. 3695 [153]" "
  412. 3700 [153]"."
  413. 3701 [129]DL[178]1[164]850:[130]
  414. 3710 [153]" "
  415. 3715 [129]DL[178]1[164]200:[130]
  416. 3720 [153]"."
  417. 3725 [129]DL[178]1[164]200:[130]
  418. 3730 [153]" "
  419. 3740 [153]"."
  420. 3745 [129]DL[178]1[164]200:[130]
  421. 3750 [153]" "
  422. 3760 [153]"."
  423. 3765 [129]DL[178]1[164]200:[130]
  424. 3770 [153]" "
  425. 4000 [129]DL[178]1[164]500:[130]
  426. 4010 [153]"LOADTHE END"
  427. 5000 [128]
  428. 8000 [129]FK[178]1[164]87:[135]BZ(FK):[130]FK
  429. 8010 [131]0,-1,-2,-3,1,2,4,-40,-39,-37,-41,-42,-43,-44
  430. 8020 [131]-80,-81,-83,-85,-78,-76,-120,-119,-118,-117,-116
  431. 8030 [131]-115,-122,-123,-124,-125,-126,-160,-158,-156,-155,-154
  432. 8040 [131]-162,-163,-164,-166,-167,-201,-199,-197,-195,-194,-193
  433. 8050 [131]-204,-205,-207,-240,-239,-238,-236,-234,-233,-232
  434. 8060 [131]-242,-246,-247,-248,-279,-278,-277,-275,-273,-271,-281
  435. 8065 [131]-282,-283,-285,-287,-289,-291,-324,-328,-332,-310
  436. 8070 [131]-360,-358,-356,-354,-352,-349,-362,-365,-367,-370,-401
  437. 8090 [142]
  438. 9000 [143]
  439. 9010 [143] MILLAGE / FOSSEN
  440. 9020 [143] LORD ELGIN HIGH SCHOOL
  441. 9030 [143] 5151 NEW STREET
  442. 9040 [143] BURLINGTON ONTARIO L7L 1V3
  443. 9050 [143]
  444. 9060 [143] FAT FORTY / FALL 1981
  445. 9070 [143]
  446. 9080 [143] CONTACT : E.R. BAILEY
  447. 9090 [143]
  448. 25000 [129]I[178]0[164]300:[135]A$:[139]A$[179][177]"-8"[167] [130]
  449. 25050 [129]A[178]704[164]732:[135]TT:[151]A,TT:[130]A:[140]:[142]:[143] POKE FIXER
  450. 25100 [131]-8,169,0,133,140,169,219,133,141,169,11,160,255,145,140,136,192,255,208
  451. 25200 [131] 249,198,141,164,141,192,215,208,239,96,0
  452.